Packages

library(plotly)
Warning: package ‘plotly’ was built under R version 4.0.5

Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Import

number_of_deaths_by_risk_factor <- number_of_deaths_by_risk_factor %>% filter(grepl('U', Code))
Error in number_of_deaths_by_risk_factor %>% filter(grepl("U", Code)) : 
  could not find function "%>%"

Clean

df2<- number_of_deaths_by_risk_factor %>%
 filter(Code %in% c("USA", "AUS")) %>%
 filter(Year >= 2000L & Year <= 
 2017L)

Viz

p <- ggplot(df2) +
 aes(x = Smoking, fill = Code) +
 geom_histogram(bins = 50L) +
 scale_fill_hue(direction = 1) +
 theme_minimal()

Interactive

ggplotly(p)
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKUGFja2FnZXMKYGBge3J9CmxpYnJhcnkocmVhZHIpCmxpYnJhcnkoZ2dwbG90MikKbGlicmFyeShkcGx5cikKbGlicmFyeShwbG90bHkpCmBgYAoKSW1wb3J0CmBgYHtyfQpudW1iZXJfb2ZfZGVhdGhzX2J5X3Jpc2tfZmFjdG9yIDwtIHJlYWRfY3N2KCJudW1iZXItb2YtZGVhdGhzLWJ5LXJpc2stZmFjdG9yLmNzdiIpClZpZXcobnVtYmVyX29mX2RlYXRoc19ieV9yaXNrX2ZhY3RvcikKCm51bWJlcl9vZl9kZWF0aHNfYnlfcmlza19mYWN0b3IgPC0gbnVtYmVyX29mX2RlYXRoc19ieV9yaXNrX2ZhY3RvciAlPiUgZmlsdGVyKGdyZXBsKCdVJywgQ29kZSkpCmxpYnJhcnkoZHBseXIpCmxpYnJhcnkoZ2dwbG90MikKYGBgCgpDbGVhbgpgYGB7cn0KZGYyPC0gbnVtYmVyX29mX2RlYXRoc19ieV9yaXNrX2ZhY3RvciAlPiUKIGZpbHRlcihDb2RlICVpbiUgYygiVVNBIiwgIkFVUyIpKSAlPiUKIGZpbHRlcihZZWFyID49IDIwMDBMICYgWWVhciA8PSAKIDIwMTdMKQpgYGAKClZpegpgYGB7cn0KcCA8LSBnZ3Bsb3QoZGYyKSArCiBhZXMoeCA9IFNtb2tpbmcsIGZpbGwgPSBDb2RlKSArCiBnZW9tX2hpc3RvZ3JhbShiaW5zID0gNTBMKSArCiBzY2FsZV9maWxsX2h1ZShkaXJlY3Rpb24gPSAxKSArCiB0aGVtZV9taW5pbWFsKCkKYGBgCgpJbnRlcmFjdGl2ZQpgYGB7cn0KZ2dwbG90bHkocCkKYGBgCgoK